home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / auto_cad / slot.lsp < prev    next >
Text File  |  1988-07-16  |  2KB  |  43 lines
  1. ;***************************************************************************
  2. (defun C:SLOT () ; V1.00
  3.    ;
  4.    ; Mike Pillers     22:41:27  7/18/1986
  5.    ; Machine/ Mechanism Design Consultant
  6.    ; San Jose, CA          (408) 280-7959
  7.    ;
  8.    ; Draws a long slot with rounded ends by specifying center point,
  9.    ; width, overall length, and angle of slot.
  10.    ;
  11.    ; Not to be sold or published
  12.    ; in any form without author's permission.
  13.    ; May be used freely by individuals.
  14.    ;
  15.   (DEFUN *ERROR* (ST)
  16.     (PRINC "error: ")
  17.     (PRINC ST)
  18.     (TERPRI)
  19.   )
  20.  
  21.   (setq c1 (getpoint "Enter CENTER POINT of SLOT:  ")
  22.         sw (getdist c1 "\nEnter WIDTH of SLOT:  ")
  23.         sl (getdist c1 "\nEnter LENGTH of SLOT:  ")
  24.         phi (getangle c1 "\nEnter ANGLE of SLOT: ")
  25.         dW (mapcar '- (polar c1 (+ phi (/ pi 2)) (/ sw 2)) c1) ;1/2 width vector
  26.         dL (mapcar '- (polar c1 phi (/ (- sl sw) 2)) c1)       ;1/2 length vector
  27.         v1 (mapcar '+ dL (mapcar '* '(-1 -1) dW))      ; vector frm cen to p1
  28.         v3 (mapcar '+ dW dL)                           ; vector frm cen to p3
  29.         p1 (mapcar '+ c1 v1)
  30.         p2 (polar c1 phi (/ sl 2))
  31.         p3 (mapcar '+ c1 v3)
  32.         p4 (mapcar '- c1 v1)
  33.         p5 (polar c1 phi (/ sl -2))
  34.         p6 (mapcar '- c1 v3)
  35.   )
  36.   (setvar "cmdecho" 0)
  37.   (command "point" c1)
  38.   (command "ARC" p1 p2 p3)
  39.   (command "line" p3 p4 "")
  40.   (command "ARC" p4 p5 p6)
  41.   (command "line" p6 p1 "")
  42. )